home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed38.d64 / test 6 (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  5KB  |  157 lines
  1. 100 POKE53280,0:POKE53281,0:POKE53272,23
  2. 150 PRINT"[147][158]             [215][200][195] [197]NTERPRISES"
  3. 155 GOSUB390:GOSUB340:PRINT"[153]                                        [146]";
  4. 160 PRINT"                                        [146]";
  5. 162 PRINT"            [197][206][199][204][201][211][200][160][197][216][197][210][195][201][211][197][211]           [146]";
  6. 165 PRINT"[153]                                        [146]";:GOSUB390:GOSUB340
  7. 170 PRINT"                                        [146]";
  8. 175 PRINT"          * [211]PELLINGZZZZAPPER *         [146]";
  9. 180 PRINT"[153]                                        [146]";:GOSUB390:GOSUB340
  10. 182 PRINT"                [212]EST # 6                [146]";
  11. 184 PRINT"[153]                                        [146]";
  12. 186 PRINT"                                        [146]":GOSUB391
  13. 188 PRINT"                                      [152][212][153]"
  14. 190 GOSUB290
  15. 195 GOTO500
  16. 200 REM CORRECT
  17. 202 GOSUB300
  18. 204 PRINT"[153]               [195][207][210][210][197][195][212]!                 [146]"
  19. 206 GOSUB392:RETURN
  20. 210 REM WRONG
  21. 212 GOSUB320
  22. 214 PRINT"[150]           [206][207]!!   [212]RY AGAIN!            [146]":GOSUB392
  23. 216 PRINT"[145][145]                                        [145][145]
  24. 218 [153]"ONONON                                        ONONON":[142]
  25. 290 [141]392:[141]360
  26. 292 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE       WAIT"
  27. 294 [161]R$:[139]R$[179][177][199](32)[175]R$[179][177]"T"[167]294
  28. 296 [139]R$[178]"T"[167][141]900
  29. 298 [153]"LOAD":[141]390:[142]
  30. 299 :
  31. 300 [143] <YES> SOUND
  32. 302 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  33. 304 [151]54296,15:[151]54277,42:[151]54278,250
  34. 306 [151]54276,23:[151]54273,23:[151]54272,191
  35. 308 [129]T[178]1[164]200:[130]:[151]54276,32:[129]T[178]1[164]250:[130]
  36. 310 [151]54296,0:[142]
  37. 320 [143] <NO> SOUND
  38. 322 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  39. 324 [151]54296,15:[151]54277,18:[151]54278,242
  40. 326 [151]54276,33:[151]54273,4:[151]54272,48
  41. 328 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  42. 330 [151]54296,0:[142]
  43. 340 [143] <BLIP> SOUND
  44. 342 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  45. 344 [151]54296,7:[151]54277,42:[151]54278,250
  46. 346 [151]54276,23:[151]54273,23:[151]54272,191
  47. 348 [129]T[178]1[164]35:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  48. 350 [151]54296,0:[142]
  49. 360 [143] <DING> SOUND
  50. 362 S[178]54272:[151]54296,15:[151]S,50:[151]S[170]1,35:[151]S[170]2,0:[151]S[170]3,8:[151]S[170]5,0
  51. 364 [151]S[170]6,10[172]16[170]9:[151]S[170]4,14:[151]S[170]4,65:[129]Q[178]1[164]20:[151]S[170]4,64:[142]
  52. 370 [143] <VERY WRONG SOUND>
  53. 372 S[178]54272:[151]54296,15:[151]S,32:[151]S[170]1,3:[151]S[170]2,128:[151]S[170]3,13
  54. 374 [151]S[170]5,4[172]16[170]0:[151]S[170]6,10[172]16[170]8
  55. 376 [151]S[170]24,15:[151]S[170]4,65:[129]Q[178]1[164]500:[130]:[151]S[170]4,64:[142]
  56. 390 [129]T[178]1[164]600:[130]:[142]
  57. 391 [129]T[178]1[164]1000:[130]:[142]
  58. 392 [129]T[178]1[164]2000:[130]:[142]
  59. 393 [129]T[178]1[164]3000:[130]:[142]
  60. 394 [129]T[178]1[164]4000:[130]:[142]
  61. 395 [129]T[178]1[164]5000:[130]:[142]
  62. 399 :
  63. 400 [153]"LISTLOAD (null)PELLINGZZZAPPER (null)-6         RIGHT$TEM "N
  64. 410 [142]
  65. 420 M[178]TI[173]60
  66. 425 M[178][181](M[170].5)
  67. 430 [142]
  68. 499 :
  69. 500 [153]"LOAD  RIGHT$N THIS PROGRAM YOU WILL TEST
  70. 502 PRINT"  YOURSELF TO SEE HOW MUCH YOU
  71. 504 [153]"  LEARNED IN PRINT(null)RACTICE #6OPEN.
  72. 508 PRINT"  [217]OU MUST SELECT AND TYPE WHICH
  73. 512 [153]"  OF TWO WORDS IS SPELLED CORRECTLY.
  74. 516 PRINT"  [217]OU WILL HAVE ONLY ONE CHANCE TO
  75. 520 [153]"  SELECT FROM EACH PAIR OF WORDS.
  76. 524 PRINT"  [193] TIMER WILL MEASURE YOUR RATE OF
  77. 528 [153]"  PROGRESS AND YOU ALSO WILL BE           SCORED.
  78. 532 PRINT"  [193]T THE END OF THE TEST, THE WORDS
  79. 536 [153]"  YOU MISSED WILL BE LISTED.  (null)LEASE
  80. 540 PRINT"  RECORD THESE WORDS FOR FURTHER
  81. 544 [153]"  STUDY.
  82. 550 GOSUB290
  83. 560 PRINT"[147] AND AWAY WE GO............":GOSUB300:GOSUB391
  84. 565 :
  85. 570 TI$="000000"
  86. 599 :
  87. 600 N=1:DIMA$(19),B$(19),C$(19),Q$(19)
  88. 610 FORG=0TO19:FORI=1TO3:K=0:GOSUB400:N=N+1
  89. 615 GOSUB420:PRINT"             [197]LAPSED TIME";M
  90. 617 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  91. 620 READA$(G),B$(G),C$(G)
  92. 630 PRINT"[159] [215]HICH OF THESE WORDS IS SPELLED         CORRECTLY?
  93. 640 [153]"       "A$(G);B$(G)
  94. 650 [153]"SYS ":[133]Z$
  95. 660 [139]Z$[178]C$(G)[167][141]200:[137]690
  96. 670 [141]370:[153]"DEF (null)HE CORRECT WORD IS "C$(G)"DEF."
  97. 675 [141]290:W[178]W[170]1
  98. 680 Q$(G)[178]"Q"
  99. 690 [130]G
  100. 700 [153]"LOAD  (null)PELLINGZZZZZAPPER (null)-6   (null)LEN(null)(null)VALCLOSEPEEK(null)ATN(null)STR$  WAIT
  101. 705 L=20-W:K=L*5:GOSUB420
  102. 710 PRINT"      [158] [217]OUR SCORE ......";K"%":GOSUB360:GOSUB391
  103. 715 PRINT"      [158] [217]OUR TIME .......";M"SECONDS":GOSUB360:GOSUB391
  104. 720 PRINT"      [153] [195]ORRECT .........";L:GOSUB300:GOSUB391
  105. 725 PRINT"      [150] [194][204][207][207][208][197][210][211] ........";W:GOSUB370
  106. 730 IFK=>90THENPRINT"               [197][216][195][197][204][204][197][206][212]![160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]"
  107. 735 IFK=100THENPRINT"":GOSUB790
  108. 740 GOSUB290:PRINT"[147][158]    [208]LEASE RECORD THESE [200][197][193][214][217] WORDS:"
  109. 745 FORG=0TO19:IFQ$(G)="Q"THENPRINTTAB(8)C$(G)
  110. 750 NEXTG
  111. 790 GOSUB290
  112. 799 :
  113. 800 PRINT"[147][158] [217]OU HAVE A CHOICE:
  114. 805 [153]" (null)RESS  (null) WAIT TO REPEAT (null)PELL (null)EST 6
  115. 810 PRINT" [208]RESS  [205] [146] TO GO TO THE DISK MENU
  116. 815 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]815
  117. 820 [139] R$[178]"R"[167] [140]:[137]100
  118. 825 [139] R$[178]"(null)"[167] [140]:[137]100
  119. 830 [153]"LOADSYS (null)ETURNING TO THE DISK MENU.
  120. 835 LOAD"MENU",8
  121. 840 RUN
  122. 845 END
  123. 899 :
  124. 900 PRINT"[147][159]     [212]HE WORDS USED IN [211]PELL [212]EST 6:
  125. 905 [153]"     ACKNOWLEDGE   EXHILARATION
  126. 910 PRINT"     DISCIPLINE    PSYCHOLOGY
  127. 915 [153]"     ACQUAINTED    BUSINESS
  128. 920 PRINT"     EXCITABLE     REMINISCE
  129. 925 [153]"     ACQUIRE       CONDEMN
  130. 930 PRINT"     FASCINATING   RHYTHM
  131. 935 [153]"     ACQUITTED     CONSCIOUS
  132. 940 PRINT"     KNOWLEDGE     SOPHOMORE
  133. 945 [153]"     ADOLESCENCE   CONSCIENTIOUS
  134. 950 PRINT"     NOWADAYS      MORTGAGE
  135. 960 [141]290:[142]
  136. 1000 [131]"ACKNOWLEDGE /"," AKNOWLEDGE","ACKNOWLEDGE"
  137. 1010 [131]"EXHILARATION /"," EXHILLARATION","EXHILARATION"
  138. 1020 [131]"DISIPLINE /"," DISCIPLINE","DISCIPLINE"
  139. 1030 [131]"PSCHOLOGY /"," PSYCHOLOGY","PSYCHOLOGY"
  140. 1040 [131]"AQUAINTED /"," ACQUAINTED","ACQUAINTED"
  141. 1050 [131]"BUSINESS /"," BUSNESS","BUSINESS"
  142. 1060 [131]"EXCITABLE /"," EXCITIBLE","EXCITABLE"
  143. 1070 [131]"REMINISE /"," REMINISCE","REMINISCE"
  144. 1080 [131]"ACQUIRE /"," ACCQUIRE","ACQUIRE"
  145. 1090 [131]"CONDEMM /"," CONDEMN","CONDEMN"
  146. 1100 [131]"FASCINATING /"," FASINATING","FASCINATING"
  147. 1110 [131]"RHYTHM /"," RHYTHMN","RHYTHM"
  148. 1120 [131]"ACQUITTED /"," ACQUITED","ACQUITTED"
  149. 1130 [131]"CONSCIOUS /"," CONSCIUS","CONSCIOUS"
  150. 1140 [131]"KNOWLEGE /"," KNOWLEDGE","KNOWLEDGE"
  151. 1150 [131]"SOPHMORE  /"," SOPHOMORE","SOPHOMORE"
  152. 1160 [131]"ADOLESCENCE /"," ADOLESENCE","ADOLESCENCE"
  153. 1170 [131]"CONSCIENTIOUS /"," CONSCIENTOUS","CONSCIENTIOUS"
  154. 1180 [131]"NOWADAYS /"," NOWDAYS","NOWADAYS"
  155. 1190 [131]"MORTGAGE /"," MORGAGE","MORTGAGE"
  156. 2000 [143] WHC 92:09:26
  157.